Zavretie PopupMenu

Otázka od: Stanislav Kochan

13. 11. 2002 14:07

nazdar,
Neporadil by mi niekto ako programovo zavriet PopupMenu? Potrebujem aby sa
Popup po zobrazeni sam po 2 sekundach zavrel.

Stano.

Odpovedá: Vit Tichy

13. 11. 2002 14:55

Joha Stanislav,

S> Neporadil by mi niekto ako programovo zavriet PopupMenu? Potrebujem aby sa
S> Popup po zobrazeni sam po 2 sekundach zavrel.

Jako takova nejrychlejsi prasarna mne napada posilat v timeru
rodicovskemu oknu ESC klapku.

PostMessage(self.Handle, WM_KEYDOWN, VK_ESCAPE, 0);

--
vt

Odpovedá: Ondrej Kelle

13. 11. 2002 15:42

> Neporadil by mi niekto ako programovo zavriet PopupMenu?
> Potrebujem aby sa
> Popup po zobrazeni sam po 2 sekundach zavrel.

Mal by stacit timer a WM_CANCELMODE:

procedure TForm1.PopupMenu1Popup(Sender: TObject); // PopupMenu1.OnPopup
begin
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject); // Timer1.OnTimer
begin
  (Sender as TTimer).Enabled := False;
  SendMessage(PopupList.Window, WM_CANCELMODE, 0, 0);
end;

Globalna premenna PopupList sa nachadza v unite Menus.pas.

HTH
TOndrej